home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 051-075 / scopedisk51 / wcs20 / convert < prev    next >
Text File  |  1995-03-18  |  2KB  |  68 lines
  1.   WINDOW 1,"WCS v2.0 - Converter for v1.0 screens",(150,111)-(480,159),31,-1
  2.  
  3.   DEFINT a-z
  4.   at&=0:text&=0:printat&=0:shadow&=0:sxy&=0:scolr&=0:sbox&=0:dbox&=0
  5.   drawmode&=0:title&=0:loadfont&=0:usefont&=0:killfont&=0:style&=0
  6.   refresh&=0:iffload&=0:iffsave&=0:loadRGB&=0:saveRGB&=0:request&=0
  7.   checkfile&=0:bload&=0:bsave&=0:bopenr&=0:bopenw&=0:bread&=0:bwrite&=0
  8.   seek&=0:bclose&=0:getmem&=0:freemem&=0:zero&=0:copy&=0:w7&=0:bye&=0
  9.  
  10.   filesize&=0:ml&=0
  11.  
  12.   DIM backboard(30,17,6),title$(6),wx(6),wy(6),gold(6)
  13.   nl$=CHR$(0)
  14.  
  15.   DIM ml(99)
  16.   OPEN ":jlib/ml_loader" FOR INPUT AS #1
  17.     FOR i=0 TO 99:ml(i)=CVI(INPUT$(2,1)):NEXT
  18.   CLOSE #1
  19.   ml&=VARPTR(ml(0)):ml& SADD(":jlib/jlib"+CHR$(0)),VARPTR(at&),WINDOW(7)
  20.   ERASE ml
  21.  
  22.   CHDIR "wcs"
  23.  
  24. main:
  25.   file$=STRING$(360,0)
  26.   request& 164,15,SADD("Name of screens to convert:"+nl$),SADD(file$),0
  27.   IF file$="" THEN
  28.     COLOR 3:INPUT "Name of screens to convert: ";file$
  29.   ELSE
  30.     file$=LEFT$(file$,INSTR(file$,CHR$(0))-1)
  31.   END IF
  32.   IF file$="" THEN quit
  33.   IF RIGHT$(file$,8)=".screens" THEN file$=LEFT$(file$,LEN(file$)-8)
  34.   OPEN file$+".screens" FOR INPUT AS #1
  35.     COLOR 2:PRINT "Reading level #";
  36.     FOR level=1 TO 6
  37.       PRINT level",";
  38.       INPUT #1,title$(level)
  39.       greed=0
  40.       FOR y=0 TO 17
  41.         FOR x=0 TO 30
  42.           part=VAL(INPUT$(1,1))
  43.           backboard(x,y,level)=part
  44.           IF part=willi THEN wx(level)=x:wy(level)=y
  45.           IF part=gold THEN gold(level)=gold(level)+1
  46.         NEXT
  47.         key$=INPUT$(1,1)
  48.       NEXT
  49.     NEXT
  50.   CLOSE #1
  51.   COLOR 1:PRINT:PRINT "Writing files..."
  52.   bsave& SADD(file$+".screens"+nl$),VARPTR(backboard(0,0,1)),6696
  53.   OPEN file$+".names" FOR OUTPUT AS #1
  54.     FOR level=1 TO 6
  55.       PRINT #1,title$(level)",";
  56.       PRINT #1,wx(level)",";
  57.       PRINT #1,wy(level)",";
  58.       PRINT #1,gold(level)
  59.     NEXT
  60.   CLOSE #1:KILL file$+".names.info"
  61.   checkfile& SADD(file$+".scores"+nl$),VARPTR(filesize&)
  62.   IF filesize&>0 THEN KILL file$+".scores"
  63.   GOTO main
  64.  
  65. quit:
  66.   bye&
  67.   SYSTEM
  68.